ccccccccccce Lk IIIIII11 UUU UUU TTTTTTTTTTTTTTT CLt 
cccccccccccc LLL III1I111 UUU UUU TTTTTTTTTTTTTTT LLet 
cceccccccccce =k HII UUU UUU TITTTTTTITTTITTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] U UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I}] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL IJ] UUU UUU TTT LLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LELLLLLELLLELLLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HIIIII11 UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
CCCCCCCCCCCC LLLLLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
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SSSSSSSS EEEEEEEEEE TITTTTTITT SSSSSSSS HH HH 000000 88868888 RRRRRRRR 000000 
SSSSSSSS EEEEEEEEEE TTTTTTTTTT SSSSSSSS_ HH HH 000000 BBBB8BBB RRRRRRRR 000000 
$$ EE TT SS HH HH 00 00 688 BB RR RR 00 
$$ EE TT SS HH HH 00 88 BB RR RR 00 
$$ EE TT SS HH HH 00 00 BB RR RR 00 00 
SS EE TT SS HH HH 00 00 88 BB RR RR 00 00 
SSSSSS EEEEEEEE TT SSSSSS HHHHHHHHHH 800 00 88888888 RRRRRRRR 00 00 
SSSSSS EEEEEEEE TT SSSSSS HHHHHHHHHH 00 00 88888888 RRRRRRRR 00 00 
SS EE TT SS HH HH 00 00 68 BB RR RR 00 00 
SS EE TT SS HH HH 00 00 68 BB RR RR 00 00 
SS EE TT SS HH HH 00 00 88 BB RR RR 00 00 cove 
SS EE TT SS HH HH 00 oOo 68 BB RR RR 00 00 eeee 
SSSSSSSS EEEEEEEEEE TT SSSSSSSS HH HH 000000 BBBBBB8B RR RR 000000 eee 
SSSSSSSS EEEEEEEEEE TT SSSSSSSS HH HH 000000 BBBBBBBB RR RR 000000 cece 
LL 111111 SSSSSSSS 
LL III SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] $$ 
LL I] SS 
LLELLLLLLLL III! SSSSSSSS 
LLLLLLLLLL HI SSSSSSSS 
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ecboo” 1e3eb-19ke 93:09:99 Fee T UT SRE Sseeshoago 682; 
MODULE setshobro ' 

EXTERNAL = GENERAL, NONEXTERNAL=LONG_RELATIVE) 


BEGIN 


' 
MARLEE SII IIIT I TTT TTT TTT TT TTT ir iii iii iit itiiiiiiiiit 
' 


0 ie COPYRIGHT (c) 1978 01282 1982, 1984 BY 
1 1 i@ DIGITAL QUIPRENT PORATION, MAYNARD, MASSACHUSETTS. 
' ie ALL RIGHTS RESER vEDO 
1 1 ie THIS SOFTWARE IS FURNI SHED UNDER A LICENSE AND MAY BE USED AND COPIED 
1 1 ‘@ ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
1 1 ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
1 1 'e COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
' ie OTHER PERSON. NO TITLE TO pH OWNERSHIP OF THE SOFTWARE IS HEREBY 
1 1 


ie THE INFORMATION IN THIS SOFTWARE IS 


UBJECT TO CHANGE WITHOUT NOTIC 
!® AND SHOULD NOT BE CONSTRUED AS A sCOMAI 


TMENT BY DIGITAL EQUIPMENT 


® 
® 
a 
® 
& 
e 
- 
® 
® 
' © 
ie TRANSFERRED. . 
os 
® 
® 
* 
oe 
co 
t 
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* 
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; 1 

3 1 

3 1 

5 1 

3 1 

3 1 

3 1 

3 1 

8 1 

3 1 

3 1 

r} 1 

3 1 

3 1 

$ 1 

7 } 

; 1 js CORPORATION. 

3 'e 

3 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
3 : i: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

: i 

: : asians dnealetttieiidiaeiamietanmeniinatiiiineiaisaienamemmatinbimntdemenatiaadinaiaatbiiains 
; : ee 

3 : } FACILITY: SET and SHOW Commands 

; 00 | ABSTRACT: 

; 0035 1! This module lnplovente the DCL commands SET BROADCAST 

: +4 : and SHOW BROADCAS 

; «438 0038 1 | ENVIRONMENT: 

8 

3 29 ? : VAX/VMS operating system, user mode 

: $¢ 0048 : AUTHOR: Gerry Smith 25-Aug-1983 

ch Dae By 21 tts we 

3 4 § 7! v03-003 JLv0391 Jake Van 25-JUL-1984 
8 ri 4 ' Enhance SHOW logic to poy look at NOBRDCST bit. 

: 469 § 1! v03-002 DASO001 David Solomon 10-Jul-1984 
5 31 39 ; Fix truncation errors; make nonexternal refs LONG_RELATIVE. 
; ¢ 3 1 i v03-001 JLV0345 Jake VanNoy 8-APR-1984 
: 36 Bez : Fix USERI-USER16 so that appropriate bits are set. 
; 5 54 1 ike 


8 

T 14-56 -1 15:26 AX-11 Bliss-32 V4.0-74 P 2 
wbus008 12-800-1 98 93:38:95 hiute sReiseysMoaRO.B 2;1 a (2) 
: sf $e i i Include fil 
3 ! Inc es 
5 1! 
3 rs $ ; LIBRARY ‘SYSSLIBRARY:L1B'; ! VAX/VMS common definitions 
; 6 1! 
$ o § : : Declare shared messages 
; 65 P 1 SSHR_MSGDEF (SET, 119, LOCAL, 
3 +] P S 2 (notterm, warning) 
; 6 (readerr, warning)); 
; 69 P 1 SSHR_MSGDEF (SHOW, 120, LOCAL 
s 0 P 1 (notterm, warning) 
we 0 1 (readerr, warning)); 


p 3 
pest 


pet Ol ieg-3¢ Le FL ap 
CLIUTL.SRCJSETSHOBRO.B52;1 
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o 
nL) 
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ep-1986 12: 


J 8 

16-$ 

1425 
ON.BROADCAST.GENERA 
ON. BROADCAST . QUEUE 


ON.BROADCA 
ON.BROADCAST. 


ON 
0 


prion Betaeteat: 
TI 
Tl 


OPTION.BROADCAS 
OPTION.BROADCAS 
OPTION.BROADCAS 
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Declare some storage for tables 
ry 
C 
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SCP CO OOOO 


MANOR OPO— UN THOR. DOORN NOR woo 
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Kk 8 
16-Sep-1984 EE Ax-11 at AS Pe v4.0-74 
14-Sep-1984 12:09:19 CLIUTL.SRCJSETSHOBRO.852;1 


: 
: 


! 
: Table of contents 


SELES 


FORWARD ROUTINE 
set$broadcast : NOVALUE 
showSbroadcast : NOVALUE, 


Set broadcast classes 
Display broadcast classes 


1 

1 

: getset; ! Get/set broadcast classes 
1 ; 

; ; External routines 

1 EXTERNAL ROUTINE 

1 cLiSpresent 

1 showSwrite_line : NOVALUE; ! Write a Line to SYSSOUTPUT 


1 
Declare literals defined elsewhere 
EXTERNAL LITERAL 


cli$_absent, 
set$_writeerr; 


Qualifier not present 
Error modifying broadcast classes 


' 
: Declare the shared messages 


SSHR_MSGDEF (SET, 119, LOCAL, 
(syntax, error)); 
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8 
18-56 -1984 01:15:24 AX-11 Blis 
1 ~30071382 93:08:95 tet iute sre 
1 GLOBAL ROUTINE set$broadcast : NOVALUE = 
BEGIN 


'o¢ 
Functional description 


This is the routine for the SET BROADCAST command. It is called 


' 
‘ from the SET command processor, and enables/disables broadcast 
} messages for the process's terminal. 
i Inputs 
} None 
i Outputs 
None 
' -——_= 
LOCAL 
status, 
char : VECTOR (3) ' terminal characteristics 
flags Bitvectortes); ! Quadword for broadcast classes 


First, get the current settings. 


if NOT (status = getset(0, 
lags,char)) 
THEN 


0 ==> get broadcast classes 
Put broadcast flags here 


Status of 0 is not-a-terminal 
so translate it here 


IN 
IF .status EQL 0 
by status = set$_notterm; 


GNAL (set$_reader?, i Error reading dev chars, 
ZASCID ‘broadcast classes’, 
-Status); ! and this is why 
Agee 


' 
: See if ALL or NONE was specified. If so, do the appropriate thing. 
if cl iSpresent (ZASCID *OPTION.BROADCAST.NONE ') 
BEGIN 
MA 
flags : VECTOR(2); 
flags(0OJ = flags{1) = -1; 
END; 
{f.£( Sprecent CEAScis *OPTION.BROADCAST.ALL*) 
BEGIN 
MA 


P 
tagst09 = tlogst i). 2°0; 
END; 


m 8 
SE TSHOBRO 16-Sep-1984 01:15:24 AX-11 Bliss-32 V4.0 Pa 6 
vOe2000 12 Sep-1984 93:0 99 CLIUTL.SRC SETSHOBRO. yf 231 on (5) 


19 1 
19 1 : 
; ; } Get the system broadcast classes. 
i 1 INCR i FROM 0 10 7 DO ! Currently only 8 
1 1 status = ctnee et ts ak -classC.iJ); ' See if there... 
1 1 IF .status NEQ cli$_absent ! If present, 
1 THEN 
1 BEG! 
i THEN Fteust 4 tel iate bit 
ags(.i] = ! clear appropriate . or 
ELSE Htagst: 14 = °. ! set say 4 
END; 
END; 


Now for the user stuff. 
INCR i FROM 0 TO 15 DO ! There are 16, USER1 = USER16 


ee = cee atts ai euser(l.iJ);! See if there 
= TP geen NEQ cli$_absent 


THEN flags(32 + .i] 
ELSE flags(32 + .iJ 
END; 


“uw 
-—-o 


Clear appropriate bit, or 
set it. 


' 
Put in the new broadcast classes. 
if NOT (status = getset(1, 


lags)) 
THEN SIGNAL (set$_writeerr, 


ZASCID "broadcast classes’, 
Status); 


1 ==> set the broadcast classes 
using these bropecast flags 
If an error, tell why. 


WAI WIIIRIRIPIPONININININDDS 2 2 SS Ss BOO OOCOCOOCOOCOCO oO ono 
FAUNAS SONOS UNO ODNANE WW MOSR NMR OU OS bee ee 
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POPOPOPIPONIPONINOPNONPoNoponononofnonoponony 


RETURN; 
END; 


«TITLE SETSHOBRO 
-IDENT \V04-000\ 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


53 41 463 466 61 4F $2 462 3 E 4F 49 54 50 4F 00000 P.AAB: .ASCII \OPTION.BROADCAST.GENERAL\ : 
4 41 45 4& 45 47 2€ 54 0000F : 

91 9018 18 P.AAA: .LONG 17694744 : 

0000000" 6 ADDR ESS P.AAB : 

53 41 43 46 41 4F 53 42 2f 4E 4F 49 34 af ; P.AAD: .ASCII \OPTION.BROADCAST.PHONE\<0><0> ; 
00 45 4E 4F 48 50 2€ 54 ; ; 

0100016 038 P.AAC: .LONG 17694742 : 
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oO@wwr>ro 
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-—o 
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P.AAF : 
P.AAE: 
P.AAH: 
8 P.AAG: 
P.AAJ: 
P.AAIL: 
AS P.AAL: 
BC P.AAK: 


P.AAM: 


0 P.AAT: 
8 P.AAS: 
0 P.AAV: 
8 P.AAU: 
O P.AAX: 
8 P.AAW: 
O P.AAZ: 
8 P.AAY: 
P.ABB: 
P.ABA: 
P.ABD: 
P.ABC: 
P.ABF : 
P.ABE: 


eASCI 
- LONG 


-ADDRESS P 


ASCII 
«LONG 


AX-11 BLi 


isge 32 V4.0-7 
CLIUTL.SRCJSETS 


HOBRO. | 2;1 
\OPTION. BROADCAST .MAIL\<0><0><0> 
S++ Sa 

\OPTION. BROADCAST. QUEUE \<0><0> 
17694742 


ADDRESS P.AAH 


“ASCII 
LONG 
ADDR 
“ASCII 
-LONG 
ADDR 


ES 
“ASCII 


«LONG 


\OPT ION. BROADCAST . SHUTDOWN\<0><0><0> 
17694745 

AAJ 
\OPT ION. BROADCAST .URGENT\<0> 
17694743 


S P.AAL 
\OPTION.BROADCAST.DCL\ 


17694740 


«ADDRESS P.AA 


ASCII 
«LONG 


ADDRESS P 


ASCII 
- LONG 


- ADDRESS 


ASCII 
- LONG 


\OP TION. BROADCAST .OPCOM\<0><0> 
17694742 
\OPTION. BROADCAST .USER1\<0><0> 
17694742 
\OPTION. BROADCAST .USER2\<0><0> 
17694742 


+ADDRESS P.AAT 


“ASCII 
«LONG 


\OPT ION. BROADCAST .USER3\<0><0> 
17694742 


-ADDRESS P.AAV 


ASCII 
«LONG 


- ADDRESS 


ASCII 
+ LONG 


\OPTION. BROADCAST .USER4\<0><0> 
17694742 
\OPT ION. BROADCAST .USER5\<0><0> 
17694742 


ADDRESS P.AAZ 


“ASCII 
“ADDRE 
“ASCII 
LONG 


\OPTION. BROADCAST .USER6\<0><d> 
17694742 
\OPTION. BROADCAST .USER7\<0><0> 
17694742 


ADDRESS P.AB 


“ASCII 
. LONG 


\OPT ION. BROADCAST .USER8\<0><0> 
17694742 


-ADDRESS P.ABF 


Page 
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eae eo eRe 7g ee Se Cee < a S 
| 

| SETS 8 -1 AX-11 Bliss-3 Pp 8 SI 

you2008 aa a CR CT bet hg Ph Pe es oe a ul 

53 41 463 44 41 GF 52 42 3 46 4 49 $6 0 i i P.ABH: .ASCII \OPTION. BROADCAST .USER9\<0><0> ; : 

01 Ny 8 P.ABG: LONG 17694742 : 

53 41 463 46 61 OF 52 42 3 $f 4 49 $4 0 of 6 P.ABJ: Ascii \OPT ION. BROADCAST .USER10\<0> : ; 

| 01 884). P.ABI: LONG 17694765 ; 

53 41 45 46 41 GF 52 4 GF OE GE 49 54 : of 45 P.ABL: “ASCII. \OPTTON.BROADCAST.USERT1\<0> ; 3 

| f or $0809 28 P.ABK: LONG 17694763 3 : 

jd3 41 43 G4 G1 OF 52 42 BE GE GE 49 5 4F 26 PLABN: LASCII \OPTTDN. BROADCAST .USER12\<O> : : 

3 Se 45 53 55 BE 54 of ; li 

9 $0000" i P. ABM: Lone sab hen : : 

53 41 43 44 41 GF 52 42 2E 46 4F 49 54 4f 6 P.ABP: <ASCII \OPTION.BROADCAST.USER13\<0> : : 

33 51 52 45 53 55 2E 54 8F : : 

i 60000" : te P.ABO: ot PE yp ee : : 

53 61 63 46 61 OF 52 42 2 4 4 49 54 ( of 0 As P.ABR: .ASCII \OPTION.BROADCAST.USER14\<0> : ; 

01 £0017 00288 P.ABQ: .LONG 17694763 : : 

00000° 0028¢ [ADDRESS P : ; 

(55 41 43 46 41 4F 52 42 Hs 4c oF 49 54 0 of 0 CO P.ABT: .ASCII \OPTION. BROADCAST .USER15\<0> ; ; 

01 £0017 00208 P.ABS: .LONG 17694743 : : 

0 90000" O20C “ADDRESS P.ABT : ; 

53 41 43 46 41 GF 52 42 2 46 4F 49 54 4F 00260 P.ABV: ASCII \OPTION.BROADCAST.USER16\<0> : : 

00 36 31 52 45 53 55 2E 5&4 O02EF : : 

91 £0017 0 FB P.ABU: LONG. . 17694743 : ; 

| 73 73 61 6C 63 20 74 73 61 63 +3 $i ef te $3 0800 Pex: “ASCII. \broadcast classes\<0><0><0> : ; 

100011, 00314 P.ABW: LONG 17694737 : ; 

0990000" 0318 “ADDRESS P : : 

53 41 63 46 41 GF 52 42 Hi 4f 4 49 54 0 4 0 1 P.ABZ: <ASCII \OPTION. BROADCAST .NONE\<0><0><0> 

. 01560088, 0 i P.ABY: LONG 17694741 : 

53 41 43 46 41 GF 52 42 2€ 4E oF 49 54 ? ¢f 035¢ P.ACB: ASCII \OPTTON. BROADCAST.ALL\ ; 3 

01 £0014 00 5 P.ACA: .LONG 17694740 : ; 

09 0000° 0 4 “ADDRESS, P : ; 

73 73 61 6C 63 20 74 73 61 63 gf $i f e O8a5 P.ACD: .ASCII brostsast classes\<0><0><0> ; : 

SOF 0011 0 6 P.ACC: .LONG 17694737 : ; 

0000000" 00 “ADDRESS P.ACD : 3 

-PSECT SOWNS,NOEXE , 2 3 

00000000* 00000000 00000000' 00000000' 000 900 0’ 00000000° 00000 CLASS: . ADDRESS P.AAA, P.AAC, P.AAE, P.AAG, P.AAL, : : 

: 33 * 0001 P.AAK, P.AAM, P.AAO 3 3 

90000000" 90000000" , , USER: . ADDRESS P.AAQ, P.AAS, P.AAU, P.AAW, oA : : 

' * 000 ' ’ P.ABA, P.ABC, 'p. ABE, P.ABG, pABt,‘P “ABK, =: : 

' ' P.ABM, P.ABO, P.ABQ, P.ABS, P.ABU ; : 
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° 
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j 0032 
53 00771208 4 + 3 S 18: 
4 pd 00030 
1 DD 0005F 
071000 oad, Ht 
20 AS YF QO04A 28 
1 4 0040 
07 i E 00038 
AE 1 CE 0005 
6E 1 se 005 
3¢ = AGS sO9F «QOOSA 3S: 
65 9} 4 me 
02 0 3 00 
53 C 0063 : 
D4 00065 4$: 
65 00000000 i 44 +9904 5$: 
53 2 50 0071 
56 38 D1 00074 
33 13 00077 
06 E9 00079 
6€ 2 F ith 
3 53 Fg 008? $: 
: ses28. Pe BOBRA ot 
65 00000000 eres pe 0095 8$ 
meet 
ar ‘ a 
gO OF BBR 
7 e it 9$: 
s : i 0085 i: 


«EXTRN 
oEXTRN 


«PSECT 


PUSHL 


P.ABW, R 
#20, §P 
- CHAR 


CLISPRESENT, SHOWSWRITE_LINE 
CLIS_ABSENT, SETS$_WRITEERR 


SCODES ,NOWRT,2 


SETSBROADCAST, Save R2,R3,R4,R5,R6,R7 
GETSET, R 

wel] ABSENT, R6 

CLI PRESENT, RS 


#7803608, STATUS 
STATUS 


#1 
#7803056 
11$ 


P.ABY 
#1, ¢ ISPRESENT 


#1, FLAGS+4 
#1. FLAGS 


P.ACA 

ai, CLISPRESENT 

RO, & 

FLAGS 

CLASSCI] 

#1, CLISPRESENT 
TATUS, R6 


STATUS, 6$ 
FLAGS, 7$ 


1, FLAGS, 7$ 
w?, 1, 58 
USERCIJ 

#1, CLISPRESENT 
RO, STATUS 
STATUS, R6 


FLAGS, 10$ 
RO, FLAGS, 10$ 
ais, I, 6 
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0131 


3; Routine Size: 


213 bytes, 


000000006 00 


Routine Base: 


0 ¢ 

58 AG OOF ¢ 

1 odo C 
000000006 8F ODD ef 
D4 


1b-sep-19 
14-Sep-19 


SCODES + 0000 


Be 12:08:49 


AX-11 Bliss-32 V4.0-74 


CLIUTL.SRCJSETSHOBRO.B32;1 
Pus x 
CALLS #2, GETSET 
MOVL R ea 
BLBS = STATUS, 12% 
PUSHL STATUS 
PUSHAB P.ACC 
PUSHL  # 


PUSH #SETS ya iTEenn 
cat #4, LIBSSIGNA 


<4 
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1S these “19 15:26 AX-11 Bliss-32 V4.0-74 P 11 
Sbusooe 12-808- 198 93:08:96 tet rut sre sefsnodso. B%2:1 — (6) 
3 GLOBAL ROUTINE showSbroadcast : NOVALUE = 
: BEGIN 
: lee 
3 re 5 Functional description 
: 26 i This is the routine for the SHOW BROADCAST command. It is called 
:; 26 : from the SHOW command processor, and displays classes of broadcast 
3 és Z : for the process's terminal. 
Z i 
; ¢ ¢ i eng 
3 4 4 ' 
3 & 44 ! Outputs 
et fy 
: ; re lease 
3 rt 
: 254 4 LOCAL 
8 # 50 status, 
3 51 char : VECTOR (3) ' terminal characteristics 
; 3 3 flags : BITVECTOR(64); i Broadcast flags quadword 
: 25 a a 
3 rs 3? Get the current settings. 
: 26 8 3 if NOT (status = getset(0, ! 0 ==> get broadcast classes 
; 26 58 lags.char)) ' Put them here 
; 2646 0259 THEN ! If an error, 
; 265 . 60 EGIN ' tell the user 
3 08 61 If .status EQL 0 ! If 0, then really not-a-terminal 
3; 2 0 o¢ THEN status = show$_notterm; ! so tell user that. 
3 re 8 ve SIGNAL (show$_readerr, 
; 0 0265 ZASCID "broadcast classes’, 
; 271 0 $6 Status); 
3 7 $8 END; 
: a 6 % ‘ 
; 0971 If the entire quadword is zero, then all broadcasts are enabled. 
: 278 6 - BEGIN 
3; 279 8 74 MAP flags : VECTOR([2); 
3 Bi Le BIND devdepend = CHAR (1): S$B8BLOCK; 
; ¢ 77 4 IF(.flagsl0) EQL 0 AND .flags(1) EQL 0) 
; + ’ $ AND NOT (.devdepend CTT$v_NOBRDCSTJ) 
> 285 80 4 BEGIN 
g ry) 81 4 showSwrite_line(ZASCID ‘Broadcasts are enabled for all classes’, %REF(O)); 
; 8 § 4 RETURN; 
; 288 END; 
r 34 : END; 
> 291 $ BEGIN 
: 292 MAP flags : VECTOR(2); 


au | 


ee Se —_——— _—_——— = = SC —— - — 
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BIND devdepend = CHAR [1]: SBBLOCK; 


IF (,flags(O] EQL Ix" Frttttte’ ang -flags(1}] EQL Zx*fftftttt") 
(,devdepend (TT$V_NOBRDCSTJ) 


BEGIN 
popes ven._8 Cae CaAee ee "Broadcasts are disabled for all classes’, %REF(0)); 


: Display disabled system broadcast classes. 
iNcR i FROM 0 10 7 DO 

If .flagsl.i] 

THEN 


SELES 


> a bt 


BIND gyre = cl +. i i]: SBBLOCKEdsc$c_ s_bin); 
desc = string dsc wu -tength 
desc(1] = string dsc$a—po inter] + 17; 

ASCID * o aned (dese): 


4 write_Line( 


us a a ss 4 


OOONO VE WN CO OONOA UE WN O OONOU SW 


: Display enabled user broadcast classes. 
INCR i FROM 0 TO 15 DO 
IF ttegstse ® .t3 
THEN 
tity 
“ao : vecventes: 
gies ring = 1] : nathan s_bln]; 
iy": string dsc$w_length 


‘string dsc$a_ pointer) + 


desct 
desc 
write. line (fA ASCID * 


93 tred (desc)): 
END: ° 


RETURN; 
END; 


4 

4 L 
2 desc : VECTOR(2 
4 

4 

4 

4 

4 

4 

4 

4 

| 


wn OC 0@ wn 
SGOOOCSCOCOOCOCOOOOOOOOOoCoOoOoOoOoOOo 
WANA AAAI AAA AAA AIA AA 


-PSECT SPLITS,NOWRT .NOEXE ,2 


Bae Be Be Se Se Se Se Se Se Se Se Se Be Oe See Be Se SH Se FH Se Se SHOE He Oe Oe Oe Oe Oe Oe Oe Se Oe Oe Oe Se Se Oe Oe Oe Oe Oe Se Oe Oe Oe Oe Oe OHH Se Se Se ee 


—_—-—_—_---—- -- - - — a 
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S 
| SETSHOBRO iSese “19 15:26 AX-11 Bliss-32 V4.0-74 Pa 13 
| S500 127808-138¢ 93:98:95 tettute sre stfsnobeo4 2;1 - (6) 
73 73 61 6C 63 20 74 73 61 63 gf $} gf % e8 74 P.ACF: .ASCII \broadcast classes\<0><0><0> : 
1 1 P.ACE: .LONG 17694737 : 
bog P «ADDRESS P.ACF : 
ee 65 qe $i $8 73 74 73 #61 63 64 61° « 6F 4 P.ACH: .ASCII \Broadcasts are enabled for all classes- : 
chen eee & OE Re ee ag tee: 
8 eASCII <Q> : 
et $8 BS P.ACG: .LONG Rou758 . 
0 BS -ADDRESS P.ACH : 
20 65 3 $1 20 73 76 #73 61 63 64 61 gf 4 CO P.ACJ: .ASCII] \Broadcasts are disabled for all classes- ; 
6c 61 2 2 6F $8 $9 64 $3 $f 6¢ 61 ; CF \<0> : 
- OT OC 07) 50087 OOSEH P.ACI: LONG 17696759 : 
009 88 , EC sADDRESS P.ACJ : 
28 65 72 61 20 73 74 73 $ 63 64 $1 f 4 FO P.ACL: .ASCII] \Broadcasts are currently disabled for:- 3 
62 61 75 69 64 20 i tS 3 2 5s te } 6 BcE \<0> F 
41 eASCII <0> : 
010E0026 00418 P.ACK: .LONG 17694758 $ 
vogeo . pois eADDRESS P.ACL 3 
00 53 41 #21 #20 20 3 3 0420 P.ACN: .ASCII \ 'AS\<0> é 
80 600 lean te Set 
00 53 41 21 20 20 ; 29 0430 P.ACP: .ASCII \ jAS\<8> 3 
010E00 00438 P.ACO: .LONG 1769472 : 
00000000" 0043C¢ ADDRESS P.ACP 3 
-PSECT S$CODES,NOWRT,2 
001C 00000 ENTRY SHOWSBROADCAST, Save R2,R3,R4 ; 0231 
54 000000006 00 9€ 90008 MOVAB SHOWSWRITE LINE, R4 : 
ee oe Ares Pe ee pe) 
16 AE Sf 501s PUSHAB CHAR : 0257. 
10 AE 9F 00016 PUSHAB FLAGS 3 
43 04 dh CLRL -(SP) $ 
00000000V EF 2 F ; 1 CALLS #3, oe rset 3 
1F 0O.€ 0 BLBS STATUS, 2$ : 
50 D5 000 TSTL STATUS 3 0261. 
7 12 00027 BNEQ 1$ ; | 
50 00781208 F D 8 MOVL #7869144, STATUS 3 8 $e | 
2 an ie 
1 Dd 000 PUSHL ; 0263 
00781080 F DD 00 PUSHL #7868592 3 
000000006 00 4 FB . CALLS #4, LIBSSIGNAL 3 
04 4 RET : 8360 
0c “f ) 0044 2$ TSTL FLAGS 3: 0277 
1 1 0047 BNEQ 3 
10 AE 9 49 TSTL FLAGS+4 PY 
of 4C BNEQ 3 
09 1A AE 1¢€ 4 BBS #1, DEVDEPEND+2, 3$ 3 oc7s 
ge D4 3 CLAL (SP) : 0281 
E 0d 00 PUSHL SP 3 


H 9 
| SETSHOBRO 16-Sep-1984 01:15:26 AX-11 Bliss-32 V4.0-74 
Shu20o0 1-Sep-19 93:08:99 CLIUTL. SRC Se¥suoaeo -B82;1 
30 Ad OF ? PUSHAB P.ACG 
20 11 A BRB 4 
FFEFFFFFFE © BF OC AE p} C 38: CMPL FLAGS, #1 
OA 64 BNEG = 
FFFFFFFFE 6 BF 10 A p CHPL FLAGS*4, #=1 
08 1A sAE 83 £ 8 4$: BBC #1, DEVDEPEND+2, 7$ 
E 94 00075 5$: CLAL (SP) 
BD 7 PUSHL SP 
60 A3 9F 00079 PUSHAB P.ACI 
64 0 FB As 6$: CALLS #2, SHOWSWRITE_LINE 
$e D4 89 7$ CLRL =. (SP) 
D 082 PUSHL SP 
0090 C3 OF PUSHAB P.ACK 
FB 0088 CALLS #2, SHOWSWRITE_LINE 
D4 00088 CLRL sd 
23 0c Ar £1 9080 8$: BBC 1, FLAGS, 9$ 
50 00000000'°EF42 00 0009 OVL  CLASSCIJ. R 
04 AE 6 g 009A MOVZWL (RO), DESC 
04 AE 11 C2 000 S #17, DESC 
08 AE 04 AO 11 C1 OOOA ADDL3 #17. 4(RO), DESC+4 
6E 04 AE SE 000 MOVAB DESC, (SP) 
3E DD OOOAC PUSHL SP 
00AO C3 9F OOOAE PUSHAB P.ACM 
64 4 Fe 008 CALLS He, SHOWSWRITE_LINE 
D4 52 : F3 000B5 9$: AOBLEQ #7. I, 8$ 
p 00089 CLRL i 
50 20 A2 9€ 000BB 10$:  MOVAB 32(R2), RO 
23 0c ar 50 £1 OOOBF BBC RO, FLAGS, 11$ 
5 00000000"EF 42 bd 000¢4 MOVL USERCIJ, RO 
04 AE 6 ¢ 00CcC MOVZWL (RO), DESC 
04 AE 11 2 00000 SUBL2. #17, DESC 
08 AE 04 AO 11 C1 00004 ADDL3 #17. 4(RO), DESC+4 
6E 04 AE 9E OOODA MOVAB DESC, (SP) 
5E DD 000 PUSHL SP 
0080 C3 9F OO0E PUSHAB P.ACO 
64 02 Fe O0E4 CALLS #2, SHOWSWRITE_LINE 
DO 52 OF £3 OO0E7 11$:  AOBLEQ #15, 1, 10$ 
04 000EB RET 


; Routine Size: 236 bytes, Routine Base: $CODE$ + 00D5 


tea Toe 
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yo42008 14-Sep-19 4 93:08:49 CLIUTL.SRCJSETSHOBRO.B52;1 ° (7) 
ROUTINE getset (key, flags, char: REF SBBLOCK) = 
BEGIN 


tee 
' 


; Get or set the broadcast classes. 


Et 


= 


i Inputs: 
key - if 0, get the broadcast classes 
if 1, set the broadcast classes 


! Outputs: 
: flags - if key=0, then flags will be filled in with the broadcast 
class quadword. 
if key=1, then flags will be used as input to the setmode 
to set the broadcast classes. 


PDP AAAAASSIIIS 


WN —OOONAVE WN" OOOO 
= 


char = terminal characteristics buffer 


DADA VIVIVIVIV 


Ww 


i Status return: 
ss$_normal 


Any valid error from $Q10W, or SASSIGN 


o 


FUN" O OONA NEAR" OVOONAUNE Wt" 


LES 


AAAS 


Status = SASSIGN(CHAN = chan 

DEVNAM = ZASCID ‘SYSSCOMMAND:'); 
If NOT .status 
THEN RETURN .status; 


Wwnm— 


+4 : 0 ==> SYSSCOMMAND is not a terminal 
4 365 lose 
7 30 MAP 
368 flags : REF SBBLOCK; 
75 369 
76 $59 LOCAL 
77 71 status, 
78 $36 chan : WORD 
37 iosb : VECTORC4,WORD), 
374 func; 
ae 
377 ! First, open a channel. Always use SYSSCOMMAND, since that doesn't 
378 ' ever get reassigned. 
eer ! 
P 0380 
8 
8 


; 374 


SOOSCSOOCOOCOOOCOOSOCOSOSOSOOCOOSOOSOOSOOCOSCOOOCOOOOOOOOOOOOOOoOO 


ane 
CLSSSSSSLISLSSELSARAN=ASS 


385 ‘ 
386 : Now to do what is requested. 
88 IF .key ' Key=1 means 
89 THEN func = io$_setmode OR io$m_brdcst ! set the broadcast stuff 
90 2 ELSE ' But if key=0, then 
391 BEGIN ' first check to see if 
ia 4 Status = SQIOW(CHAN = .chan, ' this is a terminal... 
P 039 FUNC = io0$_ sensemode, 
P 0394 10SB = iosb, 
P 0395 P1 = ssnar 
396 P2 = 12); 


9 
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; 4603 97 F .status ‘ 
3 6d 336 HEN status = .iosb[0); ‘ 
: Z 5 F Status | 
: rh 14 BEGIN : 
; 4608 ¢ 4 DASSGN(CHAN = .chan); F 
: 409 & RETURN . status; 

: 411 5 ; If .charl0,0,8,0) NEQ dc$_term ! If not a terminal, 

: tig i THEN sein ! refuse, and tell why. 

: 614 408 4 SD ASSGN( CHAN = .chan); 

Poe oa be 

: a19 11 func = jo$_sensemode OR ioSm_brdcst; ! Otherwise get ready to 

; 213 tig END; ! get the broadcast classes 

: 620 P0414 2 status = SQIOW(CHAN = .chan, ae 

: 45) P 0415 7 FUNC = “func. sae 

3; 4 ¢ P 3618 10SB8 = iosb, 

3; 4 Ret Pi = .flags); 

: ? ; Bets SDASSGN(CHAN = .chan); ' Get rid of channel 

7. 6 0420 ' 

: ? , 04 H Check to see if all is well. 

: 429 04 if .status ' See if t/ 

: ea 3s : THEN status = .iosb(0); : now ht Be mete 

; 43¢ 0426 2 RETURN .status; 

: 43 0427 1 END; 


-PSECT S$PLITS,NOWRT ,NOEXE ,2 
-ASCII VSTSESQgMANO: : 
LONG 17694732 

-ADDRESS P.ACR : 


~-EXTRN SYSSASSIGN, SYS$Q10W 
-EXTRN SYSS$DASSGN 


-PSECT SCODES,NOWRT,2 


3A 44 4E 41 4D 4D 4F 43 24 53 


003C 00000 GETSET: .WORD Save R2,R3,R4,R5 : 0340. 
55 000000006 00 9€ 0000 MOVAB SYS$QI0W, RS ; 
54 000000006 00 3 00 MOV SySSDASSEN, R4 : 
5€ C ¢ 001 SUBL2 #12, SP : 
—E 7C 0001 CLRO = (SP) : 0381. 
08 AE 9F 0001 PUSHAB CHAN : | 
00000000" EF 9F 00018 PUSHAB P.ACQ : 
000000006 99 . 8 O1F CALLS #4, SYSSASSIGN ; 
2 9 dO 00 MOVL RO, STA : | 
S 06 Ae £9 00058 Bie STATUS, 68  OaRe | 
9% 4023 BF 5 0002F MOVZWL Fok19 FUNC : 0389 


kK 9 
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; Routine Size: 168 bytes, Routine Base: $CODE$ + 01C1 


; 434 0428 #1 
3 455 0499 1 END 
: 436 0450 0 ELUDOM 


-EXTRN LIBSSIGNAL 


42 11 BRB t ; } 
ze C 1$ CLRQ 0 = SP) + 0396 

7E 7C cLRa = $) ; ! 
OC DD A PUSHL #1 : 

oc aC bp 03¢ PUSHL CHAR : 

7E 7C F CLRQ. = (SP) : 

24 AE 9F 00041 PUSHAB ose : 

2 po 44 PUSHL : 

7E 28 AE 3C 00046 MOVZWL CHAN, =(SP) : | 
7E D4 OO0GA ot qua: : 

5 FB 0004C CALLS #12, SYS$QI0W : 
: D OO4F MOVL RO, STAT : 
: 3 BLBC = STATUS : 0397. 

é 04 Ag ¢ 005 MOVZWL OSB, STATUS : 0398 
g 5 é 0059 BLBS STATUS, 3$ : 0399 
E 6— 3¢ 0005C 2s: MOVZWL CHAN, =(SP) + 0402 
64 or FB 0005F CALLS #1, SYS$DASSGN : 
D 11 00062 BRB 3 0403 | i 

42 BF 0C BC 91 00064 3$ CMPB = @CHAR,- #66 : 0405 | 
08 13 90069 BEQL 6 4$ : | 

7E 6€ 3C 00068 MOVZWL CHAN, =(SP) ; 0408 | 
64 01 £8 0006 CALLS #1, SYSSDASSGN ; | 
2 11 00071 BRB 7 : 0409, 

53 4027 eF 3¢ 0073 4$ MOVZWL #16423, FUNC > 0411) 
— 7C 00078 5$ CLRQ = SP) + 0417) 

7E 7C OOO7A CLRQ _ = (SP) ; i 

7E D4 0007¢ CLRL = = (SP) : | 

08 Ac pp 0007 PUSHL FLAGS : | 

7E 7C 0008 LRQ.  =(SP) : | : 

24 AF OF 90085 PUSHAB 10SB : : 

5 go 0086 PUSHL FUNC : 

7E 28 «AE O3C 00088 MOVZWL CHAN, =(SP) : : 
7E D4 0008C CLRL = : ; 

65 C FB 0008 CALLS #12, SYS$QI0W : : 
52 0 b0 0091 VL » STATUS F ; 
7E 6E 3C 00094 MOVZWL CHAN, =(SP) + 0418 ; 
64 1 FB 00097 CALLS #1, SYS$DASSGN : : 
4 2 £9 0009A BLBC ; 0423 | ; 
: 04 AE 3¢ 0009D MOVZWL 10SB, STATUS > 0426 | 
5 52 DO O00A1 6S: MOVL STATUS, RO > 0426 | 
04 OOOA4 RET 3 | 

50 b4 OOAS 7%: CLRL = RO : 0427 | : 

4 QOOA7 RET 3 


; PSECT SUMMARY 
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3 Name Bytes Attributes 
; SPLITS "3 WOVE gs wn iS RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES NOVEE? ‘NOURT. RD ; EXE.NOSHR, LCL, REL. CON.NOPIC,ALIGN(2) 
Library Statistics 
sencenss SyEGel§ Sececene Pages Processing 
File Total ioaded Percent Mapped Time 

-$255$DUA28: CSYSLIBILIB.L32;1 18619 22 0 1000 00:01.8 
3 COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:SETSHOBRO/OBJ=0BJ$:SETSHOBRO MSRC$:SETSHOBRO/UPDATE=(ENHS$: SE TSHOBRO) 
; Size 617 code + 1204 data bytes 
: Run “rime 00:14.8 


; Elapsed Time: 00:52.2 
3 Lines/CPU Min: 1744 | 
; Lexemes/CPU-Min: 19983 
; peneey Used: 120 pages 

; Compilation Complete 
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